package body Managed.Logger is

  protected body Command is
    procedure Set(cmd : in Logger_Command_Type) is
    begin
      Command := cmd;
    end set;

    function Retrieve return Logger_Command_Type is
    begin
      return Command;
    end retrieve;
  end Command;

end Managed.Logger;
